object iadeserinoonayf: Tiadeserinoonayf
  Left = 160
  Top = 144
  Width = 952
  Height = 403
  Caption = #304'ade Seri No Onay'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object tamam: TSpeedButton
    Left = 861
    Top = 345
    Width = 75
    Height = 25
    AllowAllUp = True
    Caption = 'Kapat'
    OnClick = tamamClick
  end
  object Label1: TLabel
    Left = 7
    Top = 6
    Width = 62
    Height = 14
    Caption = 'Seri No Takip'
    Transparent = True
  end
  object Label2: TLabel
    Left = 584
    Top = 6
    Width = 90
    Height = 14
    Caption = 'Teknik Servis Takip'
    Transparent = True
  end
  object wwDBGrid2: TwwDBGrid
    Left = 3
    Top = 24
    Width = 563
    Height = 313
    DisableThemes = False
    ControlType.Strings = (
      'durum;CustomEdit;Grdurumk;T'
      'serinos;CustomEdit;GrSerinoK;T')
    Selected.Strings = (
      'serinos'#9'20'#9'Seri No'#9'T'
      'stokkodu'#9'20'#9'Stok Kodu'#9'F'
      'durum'#9'15'#9'Durum'#9'F'
      'aciklama'#9'30'#9'A'#231#305'klama'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Color = clWhite
    DataSource = iadestokharS
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    KeyOptions = []
    ParentFont = False
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Grdurumk: TwwDBComboBox
    Left = 264
    Top = 72
    Width = 89
    Height = 22
    ShowButton = True
    Style = csDropDownList
    MapList = True
    AllowClearKey = True
    AutoDropDown = True
    DropDownCount = 8
    ItemHeight = 0
    Items.Strings = (
      'Test Ok'#9'1'
      'Ar'#305'zal'#305#9'2'
      'Eksik Par'#231'a'#9'3'
      'Hasarl'#305#9'4'
      'Di'#287'er'#9'5')
    Sorted = False
    TabOrder = 1
    UnboundDataType = wwDefault
    OnCloseUp = GrdurumkCloseUp
  end
  object GrSerinoK: TwwDBComboDlg
    Left = 24
    Top = 72
    Width = 105
    Height = 22
    OnCustomDlg = GrSerinoKCustomDlg
    ShowButton = True
    Style = csDropDown
    ReadOnly = True
    TabOrder = 2
    WordWrap = False
    UnboundDataType = wwDefault
  end
  object wwDBGrid1: TwwDBGrid
    Left = 584
    Top = 24
    Width = 352
    Height = 313
    DisableThemes = False
    ControlType.Strings = (
      'durumu;CustomEdit;GrTeknikdurumuk;T')
    Selected.Strings = (
      'id'#9'10'#9'Teknik ID'#9'F'
      'serino'#9'15'#9'Seri No'#9'F'
      'teknikformno'#9'10'#9'T.Form No'#9'F'#9
      'durumu'#9'15'#9'Durumu'#9'T'#9)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = iadestokarizatakipQS
    TabOrder = 3
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object GrTeknikdurumuk: TwwDBComboBox
    Left = 760
    Top = 70
    Width = 94
    Height = 21
    TabStop = False
    ShowButton = False
    Style = csDropDownList
    MapList = True
    AllowClearKey = True
    AutoDropDown = True
    Color = clWhite
    DropDownCount = 8
    Font.Charset = TURKISH_CHARSET
    Font.Color = 193
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ItemHeight = 0
    Items.Strings = (
      'S'#305'rada'#9'S'
      'Onar'#305'mda'#9'O'
      'Tamamland'#305#9'T'
      'G'#246'nderildi'#9'G')
    ParentFont = False
    ReadOnly = True
    Sorted = False
    TabOrder = 4
    UnboundDataType = wwDefault
  end
  object Panel1: TPanel
    Left = 3
    Top = 83
    Width = 563
    Height = 316
    TabOrder = 5
    Visible = False
    object Shape1: TShape
      Left = 1
      Top = 1
      Width = 561
      Height = 314
      Align = alClient
      Brush.Color = clBtnFace
      Pen.Color = clBtnFace
    end
    object wwDBGrid3: TwwDBGrid
      Left = 37
      Top = 14
      Width = 468
      Height = 251
      DisableThemes = False
      ControlType.Strings = (
        'durum;CustomEdit;grdurum2k;T')
      Selected.Strings = (
        'serinos'#9'30'#9'Seri No'#9'F'
        'stokkodu'#9'25'#9'Stok Kodu'#9'F'
        'durum'#9'15'#9'Durum'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = iadestokharharQS
      KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
    end
    object grdurum2k: TwwDBComboBox
      Left = 264
      Top = 64
      Width = 94
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = True
      AutoDropDown = True
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'Test Ok'#9'1'
        'Ar'#305'zal'#305#9'2'
        'Eksik Par'#231'a'#9'3'
        'Hasarl'#305#9'4'
        'Di'#287'er'#9'5')
      Sorted = False
      TabOrder = 1
      UnboundDataType = wwDefault
      OnCloseUp = grdurum2kCloseUp
    end
    object Button1: TButton
      Left = 477
      Top = 277
      Width = 75
      Height = 25
      Caption = 'Kapat'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object SeriNoBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar '
      'with (nolock) where serinos=:serinos')
    Left = 160
    Top = 408
  end
  object iadestokQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select top 10 *,izlemeturu=(select izlemeturu from stok where st' +
        'ok.stokkod=iadestok.stokkod),kalan=(miktar-isnull(okutulan,0)) f' +
        'rom iadestok with (nolock)')
    Left = 240
    Top = 408
  end
  object iadestokS: TDataSource
    DataSet = iadestokQ
    Left = 200
    Top = 408
  end
  object iadestokharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select stokkodu=(select dbo.getstokkodu(stokkod) from fatharhar ' +
        'f where f.serinos=iadestokhar.serinos),* from iadestokhar'
      'where iadeid=1')
    Left = 392
    Top = 408
  end
  object iadestokharS: TDataSource
    DataSet = iadestokharQ
    Left = 352
    Top = 408
  end
  object FaturadaSerinoVarmiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        DataType = ftInteger
        Size = 1
        Value = 1
      end>
    SQL.Strings = (
      'select serinos from fatharhar'
      'where bilisnocik'
      'in'
      '('
      'select bilisno from fatura'
      'where unityfaturano'
      'in'
      '('
      'select distinct faturano from iadestok'
      'where iadekod=:id and faturano is not null'
      ')'
      ')'
      '')
    Left = 296
    Top = 408
  end
  object iadestokarizatakipQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select *,durumu=(select durumu from teknik t where t.formno=i.te' +
        'knikformno) from iadestokarizatakip i where i.iadeid=1')
    Left = 784
  end
  object iadestokarizatakipQS: TDataSource
    DataSet = iadestokarizatakipQ
    Left = 744
  end
  object iadestokharharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select stokkodu=dbo.getstokkodu(stokkod),* from iadestokharhar'
      'where iadestokharid=1')
    Left = 496
    Top = 408
  end
  object iadestokharharQS: TDataSource
    DataSet = iadestokharharQ
    Left = 456
    Top = 408
  end
  object EksikUrunlerQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from iadeeksik '
      'Where iadekod=0'
      '')
    Left = 824
    Top = 1
  end
  object StokkoduBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from iadeeksik '
      'Where iadekod=0'
      '')
    Left = 864
    Top = 1
  end
end
